-- card: 30589 from stack: in.0
-- bmap block id: 30727
-- flags: 4000
-- background id: 29303
-- name: Registration
----- HyperTalk script -----
on openCard
  send "set the cantModify of this stack to false" to HyperCard
  put the date into bkgnd field "Page Number"
  click at 237,185
end openCard

on closeCard
  send "set the cantModify of this stack to true" to HyperCard
end closeCard

on help
  send mouseUp to card button "Help"
end help


-- part 44 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=79 top=45 right=164 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 46 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=90 right=108 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Word Processing
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 47 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=165 right=276 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 22
-- part name: Address


-- part 48 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=247 top=45 right=87 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 66 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=108 right=126 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Spreadsheet
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=126 right=144 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Database
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=144 right=162 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Graphics
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=162 right=180 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Communication
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 70 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=180 right=198 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Network Products
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=198 right=216 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Programming
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=90 right=108 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Storage Devices
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=108 right=126 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Printers
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=126 right=144 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Video/Monitors
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 77 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=144 right=162 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Business
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=162 right=180 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Personal/Home
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=180 right=198 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Games
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 80 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=198 right=216 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 87 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=253 top=225 right=275 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 88 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=21 top=45 right=60 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Edition Number


-- part 90 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=305 right=337 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  set lockScreen to true
  go to card "Registration Help"
  put the date into bkgnd field "Page Number"
  go to card "Registration Help"
  set lockScreen to false
end mouseUp


-- part 91 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=53 top=305 right=337 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  answer "Print registration form?" with "Cancel" or "OK"
  if it is "OK" then
    global alreadyPrinted
    put true into alreadyPrinted
    set lockScreen to true
    open printing
    print 2 cards
    close printing
    set lockScreen to false
  end if
end mouseUp




-- part 93 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=388 top=200 right=218 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Other


-- part contents for background part 13
----- text -----
REGISTRATION

-- part contents for card part 44
----- text -----
Anyone can be  a registered user of  the  Macintosh  Yellow Pages.  Registration is FREE, and so are the  benefits  you  will   receive.  As  a  registered user,  you  will receive  free  newsletters whenever  the Macintosh Yellow Pages  is  updated.   We  want  to keep you up-to-date.

-- part contents for card part 48
----- text -----
What kind of product information would you like to  see  in  the  future  updates  of  the Macintosh Yellow Pages?

-- part contents for background part 22
----- text -----
8/17/90

-- part contents for card part 87
----- text -----
PRINT THIS PAGE AND MAIL TO:
Macintosh Yellow Pages, Kendall Square
P.O. Box 23, Cambridge, MA 02142.

-- part contents for card part 88
----- text -----
1